home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / Sprites.asm < prev    next >
Assembly Source File  |  1990-05-11  |  784b  |  51 lines
  1. *
  2. *    Sprites.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/Sprites.i
  7. *
  8.  
  9.     SECTION PCQ_Runtime,CODE
  10.  
  11.     XREF    _GfxBase
  12.  
  13.     XREF    _LVOChangeSprite
  14.     XDEF    _ChangeSprite
  15. _ChangeSprite
  16.     move.l    4(sp),a2
  17.     move.l    8(sp),a1
  18.     move.l    12(sp),a0
  19.     move.l    _GfxBase,a6
  20.     jmp    _LVOChangeSprite(a6)
  21.  
  22.  
  23.     XREF    _LVOFreeSprite
  24.     XDEF    _FreeSprite
  25. _FreeSprite
  26.     move.w    4(sp),d0
  27.     move.l    _GfxBase,a6
  28.     jmp    _LVOFreeSprite(a6)
  29.  
  30.  
  31.     XREF    _LVOGetSprite
  32.     XDEF    _GetSprite
  33. _GetSprite
  34.     move.w    4(sp),d0
  35.     move.l    6(sp),a0
  36.     move.l    _GfxBase,a6
  37.     jmp    _LVOGetSprite(a6)
  38.  
  39.  
  40.     XREF    _LVOMoveSprite
  41.     XDEF    _MoveSprite
  42. _MoveSprite
  43.     move.w    4(sp),d1
  44.     move.w    6(sp),d0
  45.     move.l    8(sp),a1
  46.     move.l    12(sp),a0
  47.     move.l    _GfxBase,a6
  48.     jmp    _LVOMoveSprite(a6)
  49.  
  50.     END
  51.